data-raw/2018 previous listings.R

In TravisPritchardODEQ/IRLibrary: Tools used in Oregon DEQ's Integrated Report Assessment

library(tidyverse)
library(openxlsx)


# Bring in previous listings --------------------------------------------------------------------------------------

WS_GNIS_previous_listings_import <-openxlsx::read.xlsx("C:/Users/tpritch/Documents/IR_2022/Rollups/rollup helper/Previous IR categories.xlsx",
                                                      sheet = 'Previous GNIS listings')

WS_GNIS_previous_listings <- WS_GNIS_previous_listings_import %>%
  select(AU_ID, Char_Name, AU_GNIS, Pollu_ID, wqstd_code, Period, IR_category) %>%
  rename(GNIS_previous_IR_impairement = IR_category,
         period = Period) %>%
  mutate(period = case_when(period == 'Year Round' ~ 'year_round',
                            period == 'Spawning' ~ 'spawn',
                            period == "<Null>" ~ NA_character_))%>%
  distinct()




AU_previous_categories_import <-  readxl::read_excel("C:/Users/tpritch/Documents/IR_2022/Rollups/rollup helper/Previous IR categories.xlsx",
                                                     sheet = 'Previous AU categoires',
                                             col_types = c("numeric", "text", "text",
                                                           "text", "text", "text", "text", "text",
                                                           "text", "text", "text", "numeric",
                                                           "numeric", "text", "text", "text",
                                                           "text", "text"))


AU_previous_categories <- AU_previous_categories_import %>%
  select(AU_ID, Char_Name,  Pollu_ID, wqstd_code, Period, IR_category) %>%
  rename(AU_previous_IR_category = IR_category) %>%
  mutate(Pollu_ID = as.character(Pollu_ID),
         wqstd_code = as.character(wqstd_code)) %>%
  rename(period = Period) %>%
  mutate(period = case_when(period == 'Year Round' ~ 'year_round',
                            period == 'Spawning' ~ 'spawn',
                            period == "<Null>" ~ NA_character_)) %>%

  distinct()



usethis::use_data(WS_GNIS_previous_listings, overwrite = TRUE)
usethis::use_data(AU_previous_categories, overwrite = TRUE)